Option Explicit
Sub E_Sample018()
   'ո E_Data01u@
    Dim myRng As Range
    Dim mySht As Worksheet
    Set myRng = Worksheets("E_Data01").Range("A1").CurrentRegion    'ӷd
    With Worksheets
        Set mySht = .Add(After:=.Item(.Count))
    End With
    With myRng
        .AutoFilter Field:=3, Criteria1:="=s*"                     'w
        'wgؼ
        .Resize(.Rows.Count - 1).Offset(1).Copy mySht.Range("A1")
        .AutoFilter
    End With
    Set myRng = Nothing                                             '
    Set mySht = Nothing
End Sub

